-- card: 28018 from stack: in.0-2
-- bmap block id: 5297
-- flags: 0000
-- background id: 27044
-- name: desktop media
----- HyperTalk script -----
on doAnimation
  set cursor to none
  reset
  wait 20
  lock screen
  set icon of btn "screenBtn" to "goCD1"
  unlock screen with dissolve
  wait 30
  set icon of btn "screenBtn" to "goCD2"
  wait 20
  set icon of btn "screenBtn" to "goCD1"
  wait 20
  lock screen
  set icon of btn "screenBtn" to "blankScreen"
  unlock screen with dissolve
  repeat for 4
    set the hilite of btn "CDROM" to not the hilite of btn "CDROM"
  end repeat
  zoomRect the rect of btn "CDROM", the rect of btn "CD"
  show btn "CD"
  wait 20
  spinCD
  play "Harpsichord" tempo 200 c6e cs c ce c a5 g f a ge gs g ge g e d c e de ds d ce cs c b4e bs b d5e ds d ee es e ce cs c de g4s a c5 d e f g a b
  play "Harpsichord" tempo 200 c6e cs c ce c a5 g f a ge gs g ge g e d c e de ds d ce cs c b4e bs b d5e ds d ee es e ce cs c de g4s a c5 d e f g a b c6h
  lock screen
  set icon of btn "screenBtn" to "seever1"
  unlock screen with dissolve
  wait 20
  spinCD
  doFruit grapes,6
  wait 10
  spinCD
  lock screen
  set icon of btn "screenBtn" to "chart1"
  unlock screen with dissolve
  wait 40
  spinCD
  doFruit berry,5
  wait 10
  spinCD
  lock screen
  set icon of btn "screenBtn" to "chart2"
  unlock screen with dissolve
  wait 30
  spinCD
  lock screen
  set icon of btn "screenBtn" to "seever1"
  unlock screen with dissolve slow
  spinCD
  wait until the sound is "done"
  spinCD
  lock screen
  set icon of btn "screenBtn" to "screen"
  unlock screen with dissolve
  wait 20
  spinCD
  repeat for 4
    set the hilite of btn "CD" to not the hilite of btn "CD"
  end repeat
  wait 20
  zoomRect the rect of btn "CD", the rect of btn "CDROM"
  hide btn "CD"
  wait 40
  show cd btn "See It Again"
end doAnimation

on reset
  hide cd btn "See It Again"
end reset

on spinCD
  repeat for 6
    repeat with n = 1 to 3
      set the icon of btn "CD" to ("disc" & n)
    end repeat
  end repeat
end spinCD

on doFruit str,n
  blankScreen
  repeat with m = 1 to n
    set icon of btn "screenBtn" to (str & m)
    wait 10
  end repeat
  set icon of btn "screenBtn" to "blankScreen"
end doFruit

on blankScreen
  lock screen
  set icon of btn "screenBtn" to "blankScreen"
  unlock screen with dissolve
end blankScreen




-- part 7 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=349 top=172 right=189 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See It Again
----- HyperTalk script -----
-- This handler resets the animation and shows it again.
on mouseUp
  set cursor to none
  reset
  unlock screen
  wait 20
  doAnimation
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=352 top=107 right=138 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 7325 / 7325
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=139 right=153 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CDROM


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=300 top=86 right=133 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 6855 / 6855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: screenBtn


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=65 top=78 right=190 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name: 


-- part contents for card part 11
----- text -----
HyperCard allows you to control the technologies that make your ideas sell: videodisc players and CD-ROM. Presentations with HyperCard alone are also easy to produce & easy to customize.